5 '==================== Adaptation by Robert Renfrow ==========================
6 '========================= Garland, TX ======================================
7 '==================== For the PCjr and Tandy 1000 ===========================
8 '============================[v.100]=========================================
10 SCREEN 3:CLS:KEY OFF:COLOR 8,1
20 PRINT
30 PRINT "Theme from
40 PRINT "ALFRED HITCHCOCK
45 PRINT "     Presents
50 SOUND ON
60 PLAY "O1T140V9<A8P4>E4.D8P8C8<B8>E8E8<A8P4>E4.D8P8C8<B8>E8E8","O2T140V9C8P2P8P4<A8G+4.P2.P4A8G+4.","O3T140V9A8P8C8D32C16.<B8A8B8P8>C8D4.P4C8D32C16.<B8A8B8P8>C8D4."
70 PLAY "O1<A8P4>E8F+8G+8A8P4G8A8B8>C8P4<<B8>C+8D+8E8F8E8D8C8D8","O2P4.G+4.A8P4B4.>C8P4D+4.E8P2<B8","O3P4C8E4D8C8P8E8G4F8E8P8G8B4A8G+8P2E8"
80 PLAY "O1<A8P4>E4.D8P8C8<B8>E8E8<A8P4>E4.D8P8C8<B8>E8E8","O2C8P2P8P4<A8G+4.P2.P4A8G+4.","O3A8P8C8D32C16.<B8A8B8P8>C8D4.P4C8D32C16.<B8A8B8P8>C8D4."
90 PLAY "O1<A8P4>A4.>C8P8<E8F8D8<B-8A8B8A8B8P8>C8E8F8E8<A8P4","O2P4.F4.>C8P4<F8B-8D8P2.D4.C8P4","O3P4E8G4F8E8D8C8<B-8>D8F8<A8G+8A8B8P8C8B4.A8P4"
100 PLAY "O1E8P4E8P4A8P4A8P4E8P4G+8P4A8P4A8P4","O2G+8P4P4.C8P4C8P4G+8P4P4.C8P4C8P4","O3F32E16.P8<E8F32E16.D+8E8G+8P8F+8E8P4>F32E16.P8<E8F32E16.D+8E8G+8P8F+8E8P8D+8"
110 PLAY "O1E8P4F4.E8P4F4.E8P8E8E8D8C8<B8>C8D8E8P8E8","O2G+8P4D+4.D8P4D+4.D8P8P2P2.","O3E8P8<E8G32F16.G8A8B8P8E8G32F16.G8A8B8P8E8E8D8C8<B8>C8D8E8P4"
120 PLAY "O1<A8P4>E4.D8P8C8<B8>E8E8<A8P4>E4.D8P8C8<B8>E8E8","O2P4>C8D32C16.<B8A8B8P8A8G+4.P4>C8D32C16.<B8A8B8P8A8G+4.","O3A8P8>C8D32C16.<B8A8B8P8>C8D4.P4C8D32C16.<B8A8B8P8>C8D4."
130 PLAY "O1<A8P4>A4.>C8P8<E8F8D8<B-8A8B8A8B8P8>C8E8F8E8<A8P4","O2P4.>F4.>C8P4<F8B-8D8P2.D4.C8P4","O3P4>E8G4F8E8D8C8<B-8>D8F8<A8G+8A8B8P8C8B4.A8P4"
140 PLAY "O1E8P4E8P4A8P4A8P4E8P4G+8P4A8P4A8P4","O2G+8P8E8E8D+8E8C8P4C8P8>D+8<G+8P8E8E8D+8E8C8P4C8P4","O3F32E16.P8E8F32E16.D+8E8G+8P8F+8E8P4F32E16.P8E8F32E16.D+8E8G+8P8F+8E8P8D+8"
150 PLAY "O1E8P4F4.E8P4F4.E8P8E8E8D8C8<B8>C8D8E8P8E8","O3G+8P4D+4.D8P4D+4.D8P8P2P2.","O3E8P8E8G32F16.G8A8B8P8E8G32F16.G8A8B8P8E8E8D8C8<B8>C8D8E8P4"
160 PLAY "O1<A8P4>E4.D8P8C8<B8>E8E8<A8P4>E4.D8P8C8<B8>E8E8","O2C8P2P8P4<A8G+4.P2.P4A8G+4.","O3A8P8C8D32C16.<B8A8B8P8>C8D4.P4C8D32C16.<B8A8B8P8>C8D4."
170 PLAY "O1V10<A8P4>A4.>C8P8<E8F8D8<B-8A8B8A8B8P8>C8E8F8E8<A8P4","O2V10P4.F4.>C8P4<F8B-8D8P2.D4.C8P4","O3V10P4E8G4F8E8D8C8<B-8>D8F8<A8G+8A8B8P8C8B4.A8P4"
180 PLAY "O1V11<A8P4>A4.>C8P8<E8F8D8<B-8A8B8A8B8P8>C8E8F8E8<A8P4","O2V11P4.F4.>C8P4<F8B-8D8P2.D4.C8P4","O3V11P4E8G4F8E8D8C8<B-8>D8F8<A8G+8A8B8P8C8B4.A8P4"
190 PLAY "O1V8E2.E4.E8E8F8V10E8D8C8E8E8F8V12E8D8C8E8E8V15G+8<A8P8>E8E8E8E8<A8P4A8","O2V8P4C8C8<B8A8B4>C8D8E8F8V10E8D8C8E8E8F8V12E8D8C8E8P8V15B8>C8P8<D8D8D8D8C8P8P2","O2V8P4A8A8G+8F+8G+4A8B8E8F8V10E8D8C8E8>E8F8V12E8D8C8E8P8V15E8A8P8<E8E8E8E8A8P4<<a8p4"
220 SCREEN 0:WIDTH 80:END
